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MODULE CREATEDIR directory’ 


BEGIN 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


ie bi fo “Serte i. ied he Nets LICENSE AND ml in USED AND conic’ 


: HER 
't TRANSFERRED. 
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le¢ 
i FACILITY 
Seckup/Restere 


i ABSTRACT 
i this module contains the routines that create directories. 


ENVIRONMENT 
VAX/ VMS user mode. 


AUTHOR: M. Jack, CREATION DATE: 28-Sep-1980 
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' 
i 
i 
i 
' 
' 
004 : MODIFIED BY: 
004 i v03-006 ACG0373 Andrew C. Goldstein, 11-Nov-1983 15:46 
044 ! Fix directory creation path in /INCREMENTAL case; 
Bee allow directory creation over dangling entries. 
0047 1: v03-005 KBT0586 Keith ompson 15-Aug-1983 _ 
Bee : Remove ref. to LISSextRACT. CONCEAL and change accordingly 
0050 1! v03-004 MLJ0112 Martin L. Jack, 19-Jul-1983 16:51 
0091 ; Fix uninitialized backup date in /INCREMENTAL case. 
0938 i v03-003 ACGO313_— Andrew C. Goldstein, 12-Feb-1983 16:09 
bpe¢ Add routine subtitles 
0056 1: ‘VO3-002 MLU53474 in L. Jack, 4-Feb-1983 0:15 
0057 1: Track ACGO275 in MOT BSCREA ATE_DIR. 


treats tvexters yB-ep-1964 25:59:12 yatctt ol in9-52 rose of 


14-Sep-1 BACKUP .S aEAYE R B82: 1 


v03-001 . J0101 


Martin L. Jack, 13-Nov-1982 19:24 
x ADDRESSING_MODE (GENERAL ) errors. 
artin Ll 


Make use of new NAM block descriptors. 


; , } 

; 7, | 

$ ; 3 

3 ‘Be 

s § $6 1! v02-003 ML 40065 - Jack, 31-Dec-1981 11:05 

; 63 0063 | Readapt from new maT BSCREATE “DIR to handle root directories. 
: 65 065 1: v02=002 mL 10062 Martin L. Jack. 3-Dec-1981 12:30 

: 066 1! backup date of created directory, return file ID and 

3; 67 0067 1! backup date of oetaery and consider lookups that return a 
s 68 0068 1! D of all ones to be nonexistent, all to support 

3 ° 44 : / INCREMENTAL. 

See | 0071 : v02-001 008 Martin L. Jack, 28-Aug-1981 17:32 

; 13 

3 ZZ 
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voa , ae rae Be BACKUP SREICREATED SR. B42: 


H 0075 1 REQUIRE ‘SRC$:COMMON 

: 1183 : LIBRARY + SYSSLIORARY : jie’; 

3 11 ; 1 

$ 1184 1 FORWARD ROUTINE é 
8 1185 1 CREATE_DIR; ! Create directory file 
3 1186 1 

$ 1187 1 

: 1188 1 EXTERNAL ROUTINE 

: 1189 1 LIBSCVT_OTB: ADDRESS ING_MODE (GENERAL); 

3 1199 ! ' Convert octal to binary 

; 1104 1 EXTERNAL LITERAL ! Completion status codes 

3 star : LIBS_INVFILSPE; i Invalid file specification 
: 1195 1 : : 
$ 1196 1 GSDEFINE(); ! Define common area 


——————_——— 
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CREATEDIR reate director 15-se 1984 23:52:1 AX-11 Bliss-32 V4.0-74 P 
v04=" TE_DIR = create a directory file 12-Sep-19 4 $7 :89:4§ UBACKUP-SRCICREATEDIR.B 2:1 rt (3) 
94 1 ZSBITL ‘CREATE_DIR = create a directory file’ 
95 GLOBAL ROUTINE CREATE_DIR ( Create director 
1 DEV_DIR_SPEC:: REF BBLOCK, 
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Device and directory string 


' 
t 
WNER_UTC ' Owner VIC 
PROT VALUE, i File protection value 
MAX_VERSIONS, ! Maximum version count F 
: REF BBLOCK, ! File ID of lowest level directory 
, BAKDATE: REF VECTOR ! Backup date of lowest level directory 


'4¢ 


FUNCTIONAL DESCRIPTION: 
This routine creates directory files. 
' FORMAL PARAMETERS: ¥ 


DEV_DIR_SPEC Address of a descriptor for the device and directory 
specification. This string is a standard RMS file 
specification; it must not contain a node name, file 
name, file type, file version, or wild card characters; 
it must contain an explicit directory; it must 
reference a disk device. The string must be no longer 
than 255 characters. 


OWNER_UIC A longword passed by immediate value that specifies the 
owner UIC of the created directories. If zero, the 
owner UIC is that of the parent directory. 


PROT_VALUE A word passed by immediate value that specifies the. 
file protection. If all ones, the file protection is 
that of the parent directory with delete access dropped 
for all access categories. 
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i 
i 
default maximum number of versions for files cataloged 
] 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
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3 
; MAX_VERSIONS A word passed by immediate value that specifies the 
; in the created directories. 
35 FILE_ID The address of an array of three words that receives 
3 the file ID of the lowest level directory. 
38 BAKDATE The address of a quadword that receives the backup date 
39 of the lowest level directory. 
29 IMPLICIT INPUTS: 
4g OUTPUT_CHAN Assigned to the output volume. 
4 4 QUA Qualifiers. 
see COM_O_BSRDATE Date of backup. 
4 ts IMPLICIT OUTPUTS: 
4 4 
4 48 NONE 
4 49 
39 COMPLETION STATUS: 
4 26 S$S$_NORMAL Normal successful completion; all specified directories 
5 25 already exist 


CREATEDIR eate director 15-Sep-1984 23:52:1 AX-11 Bliss-32 V4.0-74 
vos EATE_DIR = create a directory file 12-3081 9be $7539 :86 BACKUP. SRC CREATED GR BS2:1 
151 5 ' 
5 ? SS$_CREATED Normal successful completion; one or more directories 
5 } created 
2 i LIBS_INVFILSPE File specification did not contain an explicit 
5 : otrectecy or contained a node name, file name, file 
2 ? } type, file version, or wildcard, or device not a disk 
5 6 ! SPARSE errors 
2 $Q10 errors 
6 6 i SIDE EFFECTS: 
? 6 Directory files created as requested. 
ii 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 


! Descriptor for FIB 
: 8,BYTEJ, ! Attribute descriptors 
10SB: VECTORE4 WORDS, ! 1/0’ status block 
Binary group number 

pees member number : 
Length of residual directory string 
Address of residual directory string 
Address of previous directory segment 
Temporary pointer 

Status return 

Status return 

Status return 


6 
? 
7 $FAB_DECL, ' FAB for SPARSE 
7 NAM: SNAM_DECL, ' NAM block for SPARSE 
7 ESA_BUFFER: VECTORCNAMSC MAXRSS BYTEJ, ! Expanded string area 
7 NAME _BUF FER: VECTORL39+6,6YTE], ! Directory name buffer 2 
7 NAME DESC: saptriatire: BLN,BYTE], ! Directory name descriptor 
? RECATTR: BLOCKCATRSS-RECATIR,BYTE] 
7 VOLATILE, ! Record attributes 
7 8 UCHAR: BLOCKCATRSS_UCHAR ,BYTEJ ar 
7 8 VOLATILE, ' File characteristics 
7 8 FPRO: BLOCKCATRSS_FPRO, YTE) : 
8 eke s ! File protection 
8 UIC: erty ATR$S_UIC,BYTE) 
8 V ay ' File owner UIC 
8 BAK: VECTORLOd 
8 VOLATILE, !' File backup date 
8 HEADER: BLOCKCATRS$S_HEADER oyte) 
8 VOLATILE, | File header 
9 CFIBSC_LENGTH,BYTE), ! FIB 
9 C2 
9 
9 
+) 
g 
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DIR™ADDRESS 
PREV ADDRESS, 
REALDIR_ADDRESS, 
STATUS_ 2, 


STATUS 3, 
FINAL_STATUS; 


DIR_TYP_VER = UPLIT BYTE (*.DIR;1"); : p 
' File type and version string 
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BIND 


LABEL 


PROCESS; ! Block exited when processing complete 
BUILTIN 


LOCC, ' LOCC instruction 
ROT; ! Rotate longword 
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CREATEDIR Create director 18.se 1984 23:52:1 AX-11 Bliss-32 V4.0-74 Pa 6 
v0G- CREATE_DIR = create a directory file 12-8081 O8e $7539 :36 (BACKUP. SRE CREATEDIR 68231 = (3) 
208 1331 
09 1 1g ha 
i : 17 : Initialize RMS structures required to do a SPARSE. 
i 1315 2. 
1 P SFAB_INIT(FAB=FAB 
14 Pp 131 FNS=.DEV_DIR_SPECCDSCSu_LENGTH] 
15 P i318 FNA=.DEV-DIR~SPECLDSCSA_POINTERS, 
si8 1319 =NAM) > 
$1 P 1359 SNAM_INIT(NAM=NAM, 
8 1B) § BeccengtaenD. 
= 
¢20 1 $8 ESS=NAMSC_MAXRSS) ; 
en at 
'¢ 
$56 1326 ! Parse the file apes tT gee ten to obtain the expanded name string. RMS will 
224 1327 ! usualiy return RMS$_DNF (directory not found), but all that is needed is 
225 1328 ! the expanded string. 
226 +4 te 
227 1330 
228 1331 STATUS_2 = SPARSE (FAB=F AB); 
329 133 if NOT~.STATUS_2 AND .STATUS_2 NEQ RMSS_DNF THEN RETURN .STATUS_2; 
+4) 1336 5 Get the Length and address of the directory string without brackets. 
233 1336 : DIR_LENGTH = .NAMCNAMSB_DIR] - 2; ! Length without brackets 
ou 1337 é DIRZADDRESS = .NAMCNAMSC_DIR) + 1; i Address without bracket 
236 1339 2! if there is a root directory locate the real directory and squish 
237 1340 2 ! them together 
238 1341 : 
239 18 IF .NAM C NAMSV_ROOT_DIR J 
280 134 THEN 
241 1344 BEGIN 
ce 1345 
ra 1346 REGISTER 
244 1347 RO = 0, 
245 1348 Ri = 1; 
246 1349 
247 1350 LOCAL 
248 1351 ; TERMINATOR: BYTE; 
249 1326 
$20 Sez TERMINATOR = ..NAM [ NAMSL_DIR ] + 2; ! Close = Open+2 
252 1385 NOT LOCC( TERMINATOR, DIR_LENGTH, .DIR_ADDRESS; RO, R1 ) 
Set eee RETURN LIBS_INVFILSPE; ! No Root Found 
23 1323 REALDIR_ADDRESS = .R1; 
58 1361 : Found the terminator of the root directory, the real directory 
59 1306 ‘will be 2 past it, i.e. ‘“CROOT.JCDIRI 
$ 1364 REALDIR_ADDRESS-“ 
o¢ 1365 i Move what is left over 2 in order to get rid of the “J["* to get: 
6 1366 : “CROOT.DIRJ 
~ 264 1367 : REALDIR_ADDRESS~-* 


CREATEDIR Create director 1$-se -1984 23:52:1 AX-11 Bliss-32 V4.0-74 Pa 7 
v04- CREATE_DIR = create a directory file 12-Sep-19 4 $7529 :86 EBACKUP-SRe CREAVED GR 62:1 - (3) 
; 265 1 4 : 
: $8 1 $3 CHSMOVE( .RO, .REALDIR_ADDRESS*2, .REALDIR_ADDRESS ); 
: i 
Js $8 } q) Adjust the direcory Length 
3 270 1 78 DIR_LENGTH = .DIR_LENGTH = 2 
OY ee 
13 a3 76 2 ELSE 
t Le 3 If no root then the real directory is the uic directory 
; 4 1380 REALDIR_ADDRESS = .DIR_ADDRESS; 
3 4) 1386 If the directory is in UIC format, get the octal conversion 
: 281 1384 2 iF .NAM C NAMSV_GRP_MBR J 
e eee 1385 THEN 
3 ti 1359 BEGIN 
3 $e i see Convert the group part 
3 87 1390 IF NOT LIBSCVT_OTB( 3, .REALDIR_ADDRESS, GROUP) 
; 389 1398 RETURN LIBS_INVFILSPE; ! Invalid group number 
; $3) 133¢ : Convert the member part 
; 293 1396 if NOT LIBSCVT_OTB( 3, .REALDIR_ADDRESS + 3, MEMBER) 
; 295 1398 RETURN LIBS_INVFILSPE ! Invalid member number 
; 296 1399 
; 297 1400 2 END; 
Bm it.. 
: 300 1208 i Set up the FIB to Look up the MFD. 
Bo i Et 
b 303 1406 2 CHSFILL(O, FIBSC_LENGTH, F1B); 
; 304 1407 FIBCFIBSL_ACCTLJ = FIBSM_WRITE OR FIBSM_NOREAD OR FIBSM_NOWRITE; 
: $2 1408 FIBLFIBSW_NMCTL) = FIBSM_ SUPERSEDE; 
: 306 1409 2 FIBCFIBSW-FID_NUM] = FIDSC_MFD; 
3. Sor 1410 FIBCFIBSW_FID_SEQ) = FIDSC_MFD; 
He: er ae 
i '¢ 
i; 310 1213 ' Set up the FIB descriptor. 
Hee ee 
; 18 1416 F 1B_DESCCO} = FIBSC_LENGTH; 
i; $14 141 FIB"DESCL1) = FIB; 
He es 
iz “hal ‘ P 
iz 4 i* 9 : Set up the name descriptor. The Length is filled in as need be. 
: 319 14 F 
; 14 § NAME _DESCCDSCSA_POINTER] = NAME_BUFFER; 
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1425 i¢ 

¢ 14 § ! Beginning of block that is exited when processing is complete. FINAL_STATUS 

¢ 1? 5 } contains the status to be returned to caller. 

$ 1429 

1450 2 PROCESS: BEGIN 
28 1431 
9 14 ¢ '¢ 
° 7? Loop to look up directories. 
7 1435 
14 PREV_ADDRESS = 0; 
14 WHILE 1 DO 
35 1438 4 
36 1439 4 
37 1440 4 '¢ 
338 1441 4 ! Copy the file ID to FIBSW_DID so that the next lookup is done in that 
$20 ets 4 ! directory. 

0 1445 4 !e 
341 1444 & 
ae§ 1445 4 FIBCFIBSW_DID_NUM) = oF err eet eet: 

34 1446 4 FIBLFIBSW_DID_SEQ) = .FIBLFIBSW_FID_SEQ); 
344 1447 & FIBCFIBSW_DID_RVN) = .FIBLFIBSW_FID_RVNJ; 
345 1448 & 

346 1449 & 

347 1450 4 .¢ 

#48 1451 4 ! Locate the next directory name. 

9 1626 & le 
350 1453 4 
351 1454 5 BEGIN ! block to use output registers 
$26 1455 5§ REGISTER 
35 1456 5 RO = 0, 

354 1457 5 1e ig 

355 1458 5 LOCAL 

356 1459 5 NAME _LENGTH, 

$25 be + : NAME _ADDRESS; 

326 ieee 5 NAME _ADDRESS = .DIR_ADDRESS; ! Save starting point 
300 1463 5 LOCCTZREF(ZC°."), DIR_LENGTH, .DIR_ADDRESS; RO, R1); ; 

1 1464 5 NAME seth =".DIR_LERGTH - RO; : Length preceding dot or end 
soe 3? : DIR_ADDRESS = .R1 # 1; ' Prune to string following dot 
32 1467 5 DIR_LENGTH = .RO; 

5 1468 : 

1469 '¢ ; ‘ 
7? 1470 5 ! Construct the directory name concatenated with '.DIR;1° in the name 
. 1472 : ! buffer, and a descriptor for this name in the name descriptor. 

1473 5 

1474 § NAME _DESCCDSCS$W_LENGTH] = .NAME_LENGTH + 6; 

1475 5§ CHSMOVE (6, DIR_TYP_VER, CHSMOVET.NAME_LENGTH, -NAME_ADDRESS, NAME_BUFFER)); 

1476 4 END; ! block to use output registers 

1477 4 

1478 4 se : 

1479 4 ! Look up the directory at the current level. If the directory 

re +} : does not exist, exit the loop to begin creating directories. 
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v04- CREATE_DIR = create a directory file 4-Sep-1984 11:55:5 BACKUP. SRC IJCREATEDIR.B52;1 (3) 
79 re 4 
80 P 108 4 FINAL_STATUS = $Q10W( 
81 P1484 4 FONC=J0$_ACCESS, 
o¢ P1485 4 CHAN=.OUTPUT_CHAN, 
8 4 ieee 4 10S8=]0SB 
8 P 148 4 Pi=FIB DESC 
5 1488 4 P2=NAME_DESC) 
86 1489 4 If .FINAL STATUS THEN FINAL STAquS = .10SB(0); 
87 1490 4 IF .FIBCFTBSW FID NUM) EQL 65535 
88 1491 4 AND oF 1O0F 1650 _F 15 se0] EGQL 65535 
89 pe 4 4 AND .FIBLFIBSB_FID_NMX) EQL 255 
90 1493 4 THEN FINAL_STATUS = SS$_NOSUCHF ILE; 
91 1494 4 IF .FINAL_STATUS EQL SSS$_NOSUCHF ILE 
93 1495 4 THEN EXITCOOP; 
4, Ato 4 IF NOT .FINAL_STATUS THEN LEAVE PROCESS; 
95 1498 4 ! Save the directory ID and previous name string in case we 
96 1499 4 ! need to back out. 
3 te le 
39% 1256 4 PREV_ADDRESS = .DIR_ADDRESS - .NAME_DESCCDSCS$W_LENGTH] + 6 = 1; 
400 1503 4 FILE_IDCFIDSW_NUM) = Sa ate tera E 
401 1504 4 FILE_IDCFID$W_SEQ) = .FIBLFIBSW_DID_SEQ); 
40 1383 4 FILE_IDCFIDSW_RVN) = .FIBCFIBSW_DID_RVNI; 
rh 1209 ¢ '¢ 
405 1508 4 ! If no more directory leveis were specified, all specified directories 
406 1509 4 ! already exist. We do a read attributes on the last directory found 
407 1510 4 ! for one of several reasons: (1) to get the attributes to propagate 
408 1511 & ! to the next directory level to be created. (2) to get the backup 
409 1216 & ! date of the directory for an incremental scan. (3) to ensure that 
410 15135 4 ! the directory exists, and we haven't just hit a dangling directory 
411 1514 4 ! entry. 
Boeke aie 
414 1517 4 If .DIR_LENGTH LEQ 0 
HBS hoccu 
417 1520 5§ FINAL_STATUS = SS$_NORMAL; 
418 1521 § EXITLOOP; 
419 1356 4 : 
420 15 END; 
153 1358 § 1 
155 1386 ! We have reached the level at which directories do not yet exist. FIBS$W_DID 
424 152 ! now contains the file ID of the directory in which the new directory must be 
ryt 1368 } cataloged and the filename descriptor contains the name of the new directory. 
ese 
429 13382 ! Set up the attribute list. Because of dependencies later in the routine, 
rt 12 ? : the file header attribute must be last, preceded by the owner UIC attribute. 
43 1535 
ott 15 $ ATRCO, array yeed = ATRSC_RECATTR; ' Record attributes 
4 15 ATRLO, ATR$W_SIZEJ = ATRSS_RECATTR; 
435 1538 ATRLO, ATRSL_ADDR) = RECATTR; 
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4 1333 ATRE1, ATRSW_TYPE] = ATRSC_UCHAR; ! File characteristics 

4 1540 ATRL1, ATRSW_SIZE] = ATRSS_UCHAR; 

438 126) ATRL1, ATRSL_ADDR) = UCHAR; ; 

439 1 ref ATRL2, ATRSW_TYPE] = ATRSC_FPRO; ! File protection 

440 154 ATREQ, ATRS$W_SIZE) = ATRSS_FPRO; 

441 1544 ATRL2, ATRSL_ADDR) = : 

44 1545 ATRLS, ATRSW_TYPE] = ATRSC_BAKDATE; ! File backup date 

44 1268 ATRLS, ATRSW_SIZEJ = ATRSS_BAKDATE; 

444 154 ATRLS, ATRSL_ADDRJ = BAK; f 

445 1548 3 ATRE4, ATRSWITYPE) = ATRSC_UIC; ! File owner UIC 

446 1549 ATRL4, ATRSW_SIZEJ = ATRSS_UIC; 

447 1550 ATRLG, ATRSL_ADDR) = UIC; 

448 1551 ATR(S, ATRSW-TYPE] = ATRSC_HEADER; ! File header 

449 1326 ATR 2° anew sized = ATRS$S_HEADER; 

450 155 ATRES, ares, ADDR) = HEADER; 

451 1554 ATR(6, 0,0,32,0) = 0; ! End of List 

45 1555 

45 1556 + 

454 1557 ! Back out to the previous ermery level if the Last lookup failed, 

455 1558 ' to do the read attributes on the last directory file. 

456 1559 !- 

457 1500 

458 1561 IF NOT .FINAL_STATUS 

459 1206 THEN 

460 15635 4 BEGIN 

461 1564 4 FIBLFIBSW_FID_NUM] = .FIBCFIBSW_DID_NUM); 

462 1565 4 gait eeu ar papas = eae oe gE CE 

463 1566 4 FIBCFIBSW_FID_RVN) = .FIBCFIBSW_DID_RVNI; 

464 1567 END; 

465 1568 3 FIBCFIBSW_DID_NUM) = 0; 

466 1569 FIBLFIBSW_DID_SEQ) = 0; 

467 1570 FIBLFIBSW_DID_RVNJ = 0; 

468 1571 

469 1376 '¢ . 

470 157 ! Read the attributes of the last directory file found so that they 

471 1574 ! may be propagated to the directories created. If this fails with a 

472 1575 : NOSUCHF LE error, back out one level in case we had a dangling directory 

473 1576 ! entry. 

474 1577 !e 

475 1578 

476 1579 WHILE 1 DO 

477 1580 4 BEGIN 

478 P 1581 4 STATUS 3 = $Q10W( 

479 P 15 ¢ 4 FUNC=10$_ACCESS, 

480 P1583 4 CHAN=.OUTPUT_CHAN, 

481 P 1584 4 10SB8=10SB 

482 P1585 4 P1=FIB DESC, 

4835 1586 4 P5=ATR): 

484 1587 4 IF STATUS} THEN STATUS_3 = .10SBL0); 

485 1588 4 IF .STATUS 

486 1589 4 THEN EXITLOOP 

487 1590 4 . : 

488 1591 4 ! If we got a NOSUCHFILE error and a previous level exists, 

Prt 1238 ; attempt to back up. 

491 1594 4 ELSE If .STATUS_3 EQL SS$_NOSUCHFILE AND .PREV_ADDRESS NEQ 0 

492 1595 4 THEN 
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Create directory 18-sep-19 4 43:36:16 ore Bliss-32 V4.0-74 Page 11 
CREATE_DIR = create a directory file 14-Sep-1984 11:55:5 BACKUP.SRCICREATEDIR.B52;1 (3) 
1 96 BEGIN 
159 FINAL_STATUS = .STATUS_3; 
1598 FIBCFIBSW_FID_NUM) = .FILE_IDCFIDSW_NUM]; 
1599 FIBLFIBSW_FID_SEQ) = .FILE_IOCFIO$W_SEQ); 
1600 FIBLFIBSW_FID_RVNJ = .FILE_IDCFID$SW_RVNI; 
1601 DIR_LENGTA = [DIR_LENGTH = .PREV_ADBRESS + .DIR_ADDRESS; 
1o8e 2 DIR_ADDRESS = .PREV_ADDRESS; 
160 PREV_ADDRESS = 0; 
1604 5 
1605 5 '¢ 
b's ' Locate the next directory name. 
160 le 
1608 
1609 6 BEGIN ! block to use output registers 
1610 6 REGISTER 
1611 6 RO = 0, 
+ a 6 R1 = 1; 
1613 6 LOCAL 
1614 6 NAME _LENGTH, 
1012 : NAME _ADDRESS; 
1617 6 NAME _ADDRESS = .DIR_ADDRESS; ! Save starting point 
1618 6 LOCCTZREF(2C"."), DIR_LENGTH, .DIR_ADDRESS; RO, R1); 
1619 6 NAME_LENGTH = .DIR_LENGTH - -RO; ! Length preceding dot or end 
1o50 ° DIR_ADDRESS = .R1 7 1; ! Prune to string following dot 
lose 6 DIR_LENGTH = .RO; 
1625 6 
1624 6 '¢ : 
1e52 6 ! Construct the directory name concatenated with '.DIR;1' in the name 
1858 2 buffer, and a descriptor for this name in the name descriptor. 
1628 6 
1ogp 6 NAME _DESCCDSC$W_LENGTH] = .NAME_LENGTH + 6; 
1630 6 CHSMOVE(6, DIR_TYP_VER, CHSMOVET.NAME_LENGTH, .NAME_ADDRESS, NAME_BUFFER)); 
1631 § END; ! block to use output registers 
1638 5 END 
1633 5 
1o%% : Otherwise we can't back out. Report the error. 
1636 4 ELSE 
1637 5 BEGIN 
1638 5 FINAL_STATUS = .STATUS_3; 
1639 5§ LEAVE PROCESS; 
1640 4 END; 
1641 END; 
1o66 
164 16 
Ho : Exit now in the /INCREMENTAL restore case where all directories exist. 
1666 
164 IF .FINAL_STATUS 
1648 THEN LEAVE PROCESS; 
1649 
1650 te : ; : : Fee 
1651 ! Delete the file header attribute from the attribute List, since it is not 
1652 ! valid (or necessary) for creates. 
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220 1653 !- 

He 8 é ATRCS, 0,0,32,0] =_0 

28 1656 BAKTOS = Bact = 0; 

554 1657 4 IF (QUAL ay RECO) OR .Q ALCQUAL_INCR]) ' If /RECORD or /INCREMENTAL 

555 1608 ; AND .HEADERCFH2$B_STRUCLEV] EQL 2 

556 165 THEN 

557 1660 4 BEGIN 

558 1661 4 BAK 9 = + CO 0 BSRDATED I: 

559 106¢ 4 BAKL1] = .COM_O_BSRDATE(1); 

560 166 END; 

561 1664 

206 1665 '¢ 

56 1666 ! Copy the file ID to FIB$W_DID to create the directory. 

564 1667 !- 

565 1668 

566 1669 FIBCFIBSW_DID_NUM) = .FIBCFIBSW_FID_NUM]; 

567 1670 Nee ee eeepc as = .FIBCFIBSW_FID_SEQ); 

568 1671 FIBLFIBSW_DID_RVN) = .FIBCFIBSW_FID_RVNJ; 

569 1676 

570 167 1+ 

571 1674 3 ! Establish the allocation of the created directories. A Structure Level 1 

276 1675 ; ! directory is allocated zero blocks; a Structure Level 2 Sicoctory s 

57 1676 ' allocated one block. (This block is later initialized.) In both cases, 

574 1677 ! the file is marked contiguous. 

575 1678 t= 

576 1679 

577 1680 ; FIBCFIBSW_EXCTL] = FIBSM_EXTEND OR FIBSM_FILCON OR F IBSM_ALCON; . 

578 1681 FIBCFIBSW NMCTL) = FIBSM_ SUPERSEDE; T To handle superseding -1 file ID 

579 1o86 3 IF .HEADERCFH2$B_STRUCLEV) EQL 2 THEN FIBCFIBSL_EXSZJ = 1; 

580 1683 3 

581 1684 '¢ 

582 1685 ! Set up the end of file pointer. It points to the highest allocated block 

583 1686 ' plus one (with a first free byte of zero). Note that EFBLK is stored in 

584 1687 ! inverted format. 

585 1688 !e 

586 1689 

587 1690 RECATTRCFATSL_EFBLK) = ROT(.FIBCFIBSL_EXSZ] + 1, 16); 

588 1691 

589 1696 '¢ : d , 

590 169 ! Establish the owner UIC of the created directories. 

591 1694 !- 

236 1695 

59 1698 IF .OWNER_UIC NEQ 0 

594 169 THEN 

595 1698 UIC = .OWNER_UIC; 

596 1699 

597 1700 '¢ : . 

598 1701 ' Establish the file protection of the created directories. 

599 1706 t= 

690 170 

601 1704 FPRO = .FPRO OR %X‘8888'; 

54 1705 IF .PROT_VALUE<O,16> NEQ ZX'FFFF* 

60 1708 T 

604 170 FPRO = .PROT_VALUE<0,16>; 

605 1708 

606 1709 '¢ 


ao 
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v04- TE_DIR = create a directory file 1279 08-1 3b $7 :29:48 EBACKUP. Re CREAYEDGR B82: 1 _ 3 
$07 Establish the default version Limit of the created directories. 
609 ' 
610 RECATTRCFATSW_VERSIONS] = .MAX_VERSIONS; 


14 
Loop to create directories. 


WHILE 1 DO 
BEGIN 


14 
Create and access the file. 


FINAL STATUS = $Q10W( 
FONC=10$ bh _ IOSM_CREATE OR IOSM_ACCESS, 
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F .FINAL_STATUS THEN FINAL_STATUS = .10SBC0]; 
F NOT .FINAL_STATUS THEN LEAVE PROCESS; 
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! it che directory is Structure Level 2, write the first block of the 
' e. 

6 7 

637 

638 IF .,HEADERCFH2$B_STRUCLEV] EQL 2 

639 THEN 

640 BEGIN 

641 LOCAL 

4 | BLOCK_BUFFER: VECTORC256,WORD); ! Block buffer 

644 BLOCK BUFFERCO) = -1; ! End of block marker 

645 4 CHSFICL(O, 510, BLOCK _BUFFERC1)); ! Fill rest of block 

646 P 174 FINAL_STATUS = $Q10W( 

647 P 175 FONC=10$_WRITEVBLK, 

648 P 175 CHAN=.OUTPUT_CHAN, 

649 P 175 10SB8=10SB 

650 P 175 P1=BL OCK BUFFER, 

651 P 175 P2= i 

638 5 P3=1); 

65 5 IF .FINAL_STATUS THEN FINAL_STATUS = .10SB([0]; 

654 5 IF NOT -FINAL_STATUS THEN LEAVE PROCESS; 

655 5 END; 

636 5 

65 6 '¢ 

658 6 ' Deaccess the file. 

659 6 !e 

660 6 

661 P 176 FINAL_STATUS = $Q]0W( 

eee P 176 FUNC=10$_DEACCESS, 

66 P 1766 CHAN=.OUTPUT_CHAN, 
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> 664 1767 4 10SB8=10SB); 
; 665 1708 4 IF .FINAL STATUS THEN FINAL_STATUS = .10SB(0); 
3 666 178 4 IF NOT .FINAL_STATUS THEN LEAVE PROCESS; 
; 66 1770 4 
; 668 1771 4 '¢ 
3 44 rr 2 If no more directory levels were specified, they have all been created. 
; 671 1774 & 
3 66F 1775 4 IF .DIR_LENGTH LEQ 0 
; 67 177 4 THEN 
(3 «674 177 BEGIN 
is 675 1778 FINAL_STATUS = SS$_CREATED; 
i: 67 1779 LEAVE PROCESS; 
is 67 1780 4 END; 
: 678 1781 4 
; 679 17e4 4 + 
; 680 1785 4 ' Locate the next directory name. 
; 681 1784 4 !- 
; «68 1785 4 : 
; 68 1786 5 BEGIN ! block to use output registers 
; «684 1787 § REGISTER 
; 685 1788 5 = Q, 
> 686 1789 5 = 1; 
; 687 1790 2 LOCAL 
; 688 1791 NAME _LENGTH, 
; 689 1738 5 NAME _ADDRESS; 
; 690 1793 «5 : A 
; 691 1794 § NAME_ADDRESS = .DIR_ADDRESS:; ! Save starting point 
; 69 1795 5§ LOCCTZREF(2C"."), DIR_LENGTH, .DIR_ADDRESS; RO, R1); 
; 1796 5 NAME_LENGTH = .DIR_LENGTH - .RO; ' Length preceding dot or end 
3 694 1797 5 DIR_ADDRESS = .R1 ? 1; ' Prune to string following dot 
3; 695 1798 5 RO = .RO - 1; 
; 696 1799 5 DIR_LENGTH = .RO; 
; 697 1800 5 
; 698 1801 5 + : 
> 699 1906 5 : Construct the directory name concatenated with '.DIR;1° in the name 
; 700 1803 5 ! buffer, and a descriptor for this name in the name descriptor. 
3; 701 1804 § != 
3; 70 1805 5 
; 78 1806 5 NAME _DESCCDSCSW_LENGTH] = .NAME_LENGTH + 6; 
3 706 1807 5 CHSMOVE(6, DIR_TYP_VER, CHSMOVET.NAME_LENGTH, «NAME _ADDRESS, NAME_BUFFER)); 
s 70 1808 4 END; ! block to use output registers 
3 rhe 1809 4 
: 707 1319 4 '¢ 
: 708 1811 4 ! Copy the file ID of the created directory to FIB$W_DID so that the next 
; 709 alg 4 ! directory is cataloged in the directory just created. 
: 710 18135 4 !- 
. oee +f 4 
: ne 1815 4 FIBCFIBSW_DID_NUM] = .FIBCFIBSW_FID_NUM); 
: 71 1316 4 FIB ated atte = .FIB at a TE 
3; 716 1817 4 FIBCFIBSW_DID_RVN) = .FIBCFIBSW_FID_RVNI; 
3; 715 1818 END; 
; rig 133) 
; 71 1820 '¢ . . 
s 718 1821 ! End of block that is exited when processing is complete. FINAL_STATUS 
3 Bh 4 : ; : contains the status that is to be returned to caller. 
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TITLE caeareo is Create directory 
-IDENT \v04-000 


-PSECT COMMON,NOEXE, OVR,2 
00000 GLOBAL _BASE : 
00000 FREE_LIST: 
00008 INPUT WAIT: 
00010 REREAD_WAIT: 
00018 OUTPUT walt: 


00020 JPI_UIC:.BLKB 
00024 IPI USERNAME : 


-BLK 
00030 JPI_DATE: 
-BLKB 
00038 JP1_NODE_DESC: 
00040 JP1_CURPRIV: 
00048 SYI_VERSION: 


LK 
0004C -BLKB 
00050 RUS0 SHOLD piat 


L 
00058 RUSV_CRCIG: 
00098 RWSV_AUTODIN: 
-BLKB 
000D8 RWSV_FILESET_ID: 
-BLKB 
000E0 RUSV_VOLURE Jo: : 
QOOOEC RWSV_VOL_NUMBER: 
-BLKB 
QOOEE RWSV_SEG_NUMBER: 
-BLKB 2 


rea 

REA 
4 

é END; ! of block PROCESS 

‘4 

4 3 i Return the status. 

830 

831 FILE_IDCFIDSW_NUM] = .FIBCFIBSW_FID_NUM); 

8 ¢ FILE_IDCFIDSw_ -FIBLF IBSW_FID_SEQ); 

; FILE _IDOLFIDSW -FIBCFIBSW FID -RVN 
4 BAKDATE(O) = 

Hee RSA 

6 ; : 
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ig gt A a directory file 15-Sep-1984 $7 :39:16 BACKUP SRE CREATED IR 68231 
000.0 RWSV_FILE NUMBER : 
000F4 RWSV_SAVE QUAL: 
OOOF8 RWSV_SAVE_FAB: 
OOOFC RWSV_CHAN: 
00100 RWSV._XOR_BCB: 
00104 RWSV_IN, SEQ: | 
00108 RWSV_IN_SEQ 0: 
0010C RWSV_IN_XOR SEQ: 
00110 RWSV_IN_XOR RFA: 
00116 RWSV_LOOKAHEAD 
00117 RWSV_XORSIZE: 
00118 RWSV_IN_GROUP._SI 
0011¢ RWSV_IN_ERRORS: 
0011E RWSV_IN_XORUSE 
00120 RWSV_IN_ORGERR: 
00128 RWSV_IN_VBN: 
0012¢ RWSV_IN_VBN 0: 
00130 RSV_ALLOG: 
00134 RWSV_EOF: ‘ 
00138 RWSV_OUT_SEQ: | 
0013¢ RWSV_OUT_VBN: | 
00140 RWSV_OUT_BLOCK. COUNT: 
00144 RWSV_OUT_ERRORS: 
00146 RWSV_SEQ_ERRORS | 
00148 RWSV_OUT_GROUP_COUNT: 
00149 RWSV_PADDING: 


BLKB 3 
0014C QUAL: <BLKB 112 
001BC COM_SSNAME : 


-BLKB 8 
001C4 COM_VALID TYPES: 
~BLKB 2 
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CREAT 
V06=- 


DIR 


4 1 
15-Sep- 
ia-Sep- 


001C6 
001¢8 
001¢9 
OO1CA 
001CB 
001CC 
00108 
001E4 
OO1EC 
0020C 
00200 
0020E 
0020F 
00210 
00210 
00214 
00216 
00218 
0021C 
00220 
00224 
00228 
0022C 
00230 
00234 
00238 
00240 
00248 
00248 


COM_FLAGS: 
-BLK 
COM_PADDING: 


~BLK 
COM_BUF F COUNT: 
COM_1_SETCOUNT: 


at 
COM_O_SETCOUNT: 


-BLKB 
coM_! ~STRUCNAME : 
COM_O _STRUCNAME : 


COM_O_BSRDATE: 
ALT “SSNAAEE 
INPUT_FUNC: . 
INPUT “atipen 
OUTPUT_ FUNC: 
FAST _STRUCLEV: 
INPUT _BEGe 
INPUT_CHAN: 
INPUT_FLAGS: 
INPUT_PADDING: 
INPUT_FAB: 
INPUT_NAM: 
INPUT_BCB: 
INPUT_QUAL : 
INPUT_BAD: - 
INPUT -siitk: 
INPUT _MAXBLOCK: 
INPUT HedIA, ID: 
INPUT _NAREDESC: 
INPUT -STATBLE: 
INPUT_HDR BEG: 
INPUT “cREBATE: 


LKB 
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se -1984 23:52:1 AX-11 Bliss-32 V 
12-Sep-19 4 $7 :2g:1 BACKUP. SRCICREAT 


00250 INPUT _REVDAT : 
00258 INPUT EXPDATE : 
00260 INPUT _BAKDATE: 
00268 Input FIL EOWNER: 
0026C INPUT_FILECHAR: 
00270 INPUT _RECATIR: 
00290 INPUT_HDR_END: 
00290 INPUT_END: 

00290 INPUT_PROC LIST: 
00294 INPUT PLACEMENT: 
0029¢ INPUT_VBN List: 
002A4 INPUT_PLACE LEN: 
002A6 INPUT_PADDING_2: 
002A8 OUTPUT_BEG: 
002A8 OUTPUT_CHAN: 
002AC ouTPUT_FLAGS: 
OO2AE OUTPUT_PADDING: 
00280 OUTPUT_FAB: 
002B4 OUTPUT_NAM: 
00288 ouTPuT_BéBs 
002B¢ ouTPut UAL: 
002C0 OUTPUT_BAD: 
002¢4 OUTPUT_BLOCK: 
002c8 OUTPUT MAXBLOCK : 
oo2cc OUTPUT _DEVGEOM: 
00204 OUTPUT_ATTBUF : 
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osfa as 
EDIR.B52;1 


- | @ @ @w 


Ww 
Nm 


or f& fF& F&F Ff FF NN FON NH Owe CO SO 


Be Se Oe Oe Se OH Be Be Se Se Se Se Be Se Se Se Be Se Se Be Se Ge Se Se Se Se Se Ge Ge Ge Fe Se Sse Se Se Se Se Se Se Se Se ee Se Ss Se Se Se Se Se Sete Sete Se Se Seas 


-BL 144 
00364 OUTPUT_END: 

-BLKB 0 
00364 LIST_TOTFILES: 

-BLKB 4 


Page 


“ere iEsbortage 34:58:13 BACKUP" SRESCREAYEDIR.682; 1 3 


| 
ir 
| IR = create a directory file 14-Sep-1984 
| 00368 LIST_TOTSIZE: 
0036C VERIFY Fig: 
| 00370 VERIFY_USE COUNT : 
| 00374 VERIFY QUAL : 
| 00378 COMPARE_BCB: 
0037C FAST_BUFFER: 
-BLKB 
| 00380 FAST_BUFFER SIZE: 
00384 FAST_RVN: 
.BLKB 
00385 FAST_PADDING: 


- 


00386 DIR_VERLIMITS 
00388 FAST VOL_BEG: 
00388 FAST_IMAP_SIZE: 
0038¢ FAST_IMAP: 
00390 FAST_MDR“ OFFSET: 
00394 FAST_BOOT (BN: 
00398 FAST_VOL END: 
00398 JOUR_BUFFER:. 
0039C JOUR_DIR: 
003A0 JOUR_HIBLK: 
O03A4 JOUR _EFBIR: 
OO3A8 JOUR_ “ei 
OO3AC JOUR “FFBiTES 
OO3AE JOUR_ “navies 
00380 JOUR_ “struet rev: 
00382 JOUR_ “coulis 
00383 JOUR “REVERSE: 
00384 JOUR_EXSZ: 
00386 JOUR_PADDING: 
00388 CHKPT_HIGH SP: 
| 
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2 
pe a a directory file re det 73 2g: 


003BC CHKPT Loi SP: 
003CO CHKPT_STACK: 
003C4 CHKPT “vais 
003C8 CHKPT “status: 


-BLK 
OO3CC DIR_BEG: .BLKB 
OO3SCC DIR_CHAN: 


-BLKB 
90300 DIR_NAM: .BLKB 
co DIR_DEV DESC: 


-BLKB 
00308 DIR_SEL PIR: 
OO3EO DIR_SEL Saf 
003E8 DIR ~STRUCLEV: 
003E9 DIR -LEVELS: 
OO3EA DIR_FLAGS: 7 
OO3EB DIR_STATUS: 2 
OO3EC DIR _STRUIG: 
0052C DIR_STACK: ; 
00790 DIR_SP: .BLKB 
00794 DIRTSEL_LATEST: 
-BLKB 4 
00798 DIR_END:.BLKB 0 
00798 DIR “SCANLIMIT: 
0078C INPUT_MTL: ¥ 
007CO0 ouTPUT Ait: 
007C4 CURRENT ATL: 
007C8 CURRENT WCB: 
007CC CURRENT WCB: 
007D0 ACL_FIB_DESCR: 
.BLKB 


LK 
0708 ACL_FIB:.BLKB 
0818 ACL “LENGTH: 


-BLKB 
0081C ACL_BUFFER: 
-BLKB 
00820 CRYP_IN_CONTEXT: 
00824 CRYP_OU_CONTEXT: 
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2 
_CREATEDIR Create director Be Sep =13 4 23: AX-11 Bliss-32 v4. P 1 
/V04 CREATE_DIR = erecte 8 directory file 14-Sep-1984 7 3g: 48 BACKUP. SRC} ScReateoya B32;1 — (3) 
| -BLKB 4 
| 00828 CRYP_DA -CONTEXT: , 
| 9082C CRYP_DATA ENCIV: ; 
00834 CRYP_DATA CODE: : 
| 00838 CRYP_DATA KEY: " 
| 00840 CRYP_DATA Ve 
00848 CRYP_DATA_CKSM: 
-BLKB 4 
.PSECT CODE,NOWRT,2 
31 38 52 49 44 2E€ 00000 P.AAA: .ASCII \.DIR;1\ ; 
DIR_TYP_VER= 
.EXTRN Lipscvt o OTB, LIBS_INVFILSPE 
SEXTRN SYSSPARSE, SYS$Q10w 
OFFC 00000 ENTRY CREA TE DIR, Save R2,R3,R4,R5,R6,R7,R8,R9,- = 1198 
SE F954 CE 9€ 00002 MOV -1768(SP), : 
0050 &F 00 6E 00 2¢€ 00007 movCS #0, (SP), “o, #80, SRMS_PTR : 1319 
BO AD 00006 : 
BO AD 5003 8F B0 0001 MOVwW =: #20 483. SRMS_P ; 
C6 AD 02 90 00016 MOVB #2, $RMS_PTR? R : 
CF AD 02 90 OOO1A MOVB #2. $RMS~PTR+31 : 
D8 AD FF5SO CD 9E OOOIE MOV NAM, $RMS_PTR+40 : 
50 04 AC DO 00024 MOVL DEV.DIR_SPEC, RO ; 
pc AD 04 AO D0 00028 MOVL 4(RO), SRMS PTR+44 : 
E46 AD 60 90 0002D MOVB. (RO), SRMS_PTR+52 : 
0060 &F 00 6E Sa 00 2¢ 90031 MOVCS #0, (SP), #0, #96, SRMS_PTR : 1323 
FESO CD 6002 8F B0 00038 MOVW #24578, Shes PTR : 
FF58 = CD 10 90 0004 MOVB 86s #16, $ PTRs +8 : 
FFSA CD 01 8 0004 MNEGB #1, a+ +10 : 
FFSC CD FESO CD #O£ 9004¢ MOVAB ESA “sis Pi RRR _PTR#12 : 
BO AD 9F 0005 PUSHAB : 1331 
000000006 00 gi FB 00056 CALLS a 1SYSSPARSE : 
OA 0 €8 0005p BLBS wie : 1332 
0001C04A «BF 50 D1 00060 CMPL Staruee * bi14762 : 
01 13 00067 BEQL =s«w1$ F 
04 00069 RET : 
56 8A AD 9A O006A 1S: MOVZBL NAM+58, DIR_LENGTH : 1336 
56 02 C2 006 SUBL me DIR LEN NGTH : 
SA 98 AD 01 ¢1 00071 ADDL3 #1. NAM? TR _ADDRESS : 1337 
18 85 AD 05 £1 00076 BBC #3. NAM+ : 134¢ 
50 BD : 1 9 7B ADDB3 @NAM+72, TERMINATOR > 135 
6A 56 A 00080 LOCC TERMINATORS” DIR_LENGTH, (DIR_ADDRESS) > 1355 
7 13 00084 BEQL 86-48 ; 
| 57 1 p 00 MOVL_ 1, REALDIR_ADDRESS : 1359 
67 02. A7 0 08 nOvCS RO, e(REALDIR gAdbRESS), (REALDIR_ADDRESS) ; 1369 
| 56 02 2 0008 SUBL2 #2. DIR_LEN 2 1373 
| 03 11 00091 BRB 3$ : 
| 
j 
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2 
/CREATEDIR Create director 18-56 -1984 23:52:1 AX-11 Bliss-32 V4.0-74 Pa 2 
| Voe~060 CREATE_DIR = create a directory file 12-805-1 984 $7529 :46 EBACKUP. SRE CREATEDIR.B52;1 we 3 
57 5A DO 00093 2$: MOVL  DIR_ADDRESS, REALDIR_ADDRESS : 1380 
| 2A 86 AD 3 «€1 0096 $$: BBC 5 ee 5$ 7 3 136 
4080 F B88 00098 PUSHR #*M<R7,SP> : 1390 
3 DD 0009F PUSHL # : 
000000006 09 FB O0A1 CALLS #3, LIBSCVT_OTB : 
1 0 3 OOAB BLBC —=_—«aRO, 4S : 
04 AE F OOOAB PUSHAB MEMBER 3 13% 
03 A? OF OOAE PUSHAB 3(REALDIR_ADDRESS) ; 
03 DD 00087 PUSHL : 
000000006 00 9 Fe 0083 CALLS #3, LIBSCVT_OTB : 
08 0 €E8 OOOBA BL BS ; 3 
50 000000006 &F i 9O0BD 4$: MOVE #LiBS_INVFILSPE, RO + 1398 
0040 &8F 00 6E hos 00 C b90¢5 5$: MOVCS #0, (SP), #0, #64, FIB + 1406 
0250 CE 0501 &8F 3C¢ OO0CF MOVZWL #1281, FIB + 1407 
0264 CE 9400 8F BO 00006 MOVW #1024. F18+20 + 1408 
0254 CE 00040004 8F DO 99000 VL #262148, FIB+4 + 1409 
0248 CE 40 8F 9A OO0E6 MOVZBL #64, F1B_DESC F 1416 
024C CE 0250 CE 9E OOOEC VAB_  FIB, FIB-DESC+4 + 141 
FEIC §=CD FE20 cp 9E OOOF MOVAB NAME_BUFFER, NAME_DESC+4 + 1423 
5 bs OOOFA CLRL § PREVADDRESS + 1436 
59 0254 CE 3C OO0FC MOVZ2WL FIB+Z, RO + 1445 
57 14 AC dO 00101 MOVL FALE fd, R7 : 1503) 
025A CE 59 BO 00105 6S: MOV) R9, FIB+1 + 1445 
025¢ cE 0256 CE DO 0010A MOVL  F18+6, FIB*12 + 1446 
5 5A pO 00111 MOVL § DIR_ADDRESS, NAME_ADDRESS ; 146¢ 
6A 56 2E 3A 00114 LOCC #46, DIR_LENGTH, TDIR_ADDRESS) 3: 146 
52 56 50 C3 00118 SUBL3 RO, DIR_CENGTH, NAME_CENGTH + 1464 
SA 01 «Al 3 0011C MOVAB 1(R1), BIR_ADDRESS : 1465 
56 70 9E 00120 MOV -(RO), DIR-LENGT + 1467 
FE18 CD 2¢ 06 Al 00123 ADDW #6, NAME_LENGTH, NAME DESC 3: 1474 
FE20 CD 6 52 28 00129 MOVC NAME_LENGTH, (NAME_ADBRESS), NAME_BUFFER 3 1475 
63 FEC6 = CF 06 28 0012F MOVCS #6, BIR_TYP_VER, (R3) 3 
7E 7C 00135 CLROQ. = (§P) + 1488 
7E 7C 00137 CLRQ = = (SP) ; 
FEI18 CD 9F 00139 PUSHAB NAME DESC ; 
025C CE 9F 00130 PUSHAB FIB BESC F 
7E 7C 00141 CLRQ = =( SP) ; 
0228 ce 9F 00143 PUSHAB 10SB ; 
DD 00147 PUSHL #50 ; 
00000000" EF DD 00149 PUSHL OUTPUT_CHAN : 
7E D4 O014F CLRL. = (SP) ; 
000000006 99 of FB 90151 CALLS #12, SYS$QI0W ; 
dO 00158 MOVL RO, FINAL_STATUS F 
05 58 €9 00158 BLBC = FINAL_STATUS, 7$ + 1489 
58 0208 CE 3¢ O15 MOVZWL 10SB,~F INAL_STATUS ; 
59 0254 ce C 00163 7$: MOVZWL FF IB+4 Rn : 1490 
FFFF BF 59 81 00168 CMPW RD, #65535 : 
16 12 0016D BNEQ &8$ ; 
FFFF = SF 0256 CE 81 016f CMPW 0S s«éF:IB+6, #65535 > 1491 
0D : 176 BNEQ 8$ ; 
FF OS 0259 cE 9 0178 CHB F1B+9, #255 : 1492 
8 0910 8F if 1 MOVZWL $3320, FINAL_STATUS + 1493 
00000910 &F : Di 00185 8s: CMPL FINAL_STATUS; #2320 > 1494 
13 0018C BEQL =«d1'18 : 
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2 
CREATEDIR Create director 18.56 =1984 23:52: AX-11 Bliss-32 V4.0-74 Pa 4 
voe- CREATE_DIR = create a directory file Vance S8e FF:88i1§ | Pach Ob iegcze VesOe Tks. eg 
A é 3a 00294 OCC. #46, DIR_LENGTH, (DIR_ADDRESS) : 1618 
$5 3 ef g3 3 98 SUBL3 DIR_CENGTH, NAME_CENGTH : 1619 
A 01 Al SE 0029 OVAB 1(R1), BIR_ADDRESS : 1620 
70 H O2A MOV =(RO), DIR-LENGT t 1622 
FEI8 CD 0 A A ADDW3 #6, NAME_LENGTH, NAME_DESC : 16¢9 
FE20 4 | A9 MOVC NAME_LENGTH, (NAM ADDRESS), NAME _BUFFER 3: 1630 
6 FD46 CF 06 AF MOVCS #6, BDIR_TYP_VER, (R3 : 
FF : 1 0 BS BRW 1 + 1596 
87 5 8 BB 17$:  ##BLBS FINAL_STATUS, 15$ + 1647 
0238 CE 04 00288 CLRL = ATR#40 : 1655 
FDE8 CD 04 O02BF CLRL = BAK +4 : 1656 
FDES CD Dé 0 C3 CLRL = BAK : 
08 00000000" EF 6 EO 002¢ BBS #6, QUAL+12, 18$ t 1657 
19 00000000" EF 4 a O2CF BBC #4. QUAL+10. 19$ : 
02 0297 ce 1 00207 18$:  CMPB HEADER* , we : 1658 
1 12 0020¢ BNEQ 19$ ; | 
FDES CD 00000000' EF D 99 DE MOVL § COM_O_BSRDATE, BAK t 1661 
FES CD 00000000" EF DO 002 MOVL § COM~O"BSRDATE+4, BAK+4 : 1662. 
025A CE 0g 4 CE DO 002F0 19$: MOVL  FIBt47 FIB+10 + 1669. 
O25— CE 0258 CE BO 002F7 MOVW FIB+8. FIB+14 + 1671 
0264 CE 00850400 &8F DO OO2FE MOVL #8717312, F1B+20 + 1681 
02 0297 ce 91 00307 CMPB = HEADER+7. #2 + 1682. 
05 12 0030c BNEQ 20$ ; 
0268 CE 01 00 00506 MOVL #1, FIB+24 ; 
50 0268 CE 01 €1 00313 208:  ADDL3 #1. FIB+24, RO : 1690 
FEOO §36 CD 50 10 9C 00319 ROTL #16, RO, RECATTR+8 : 
08 AC b3 0031F TSTL WNER_UIC > 1696 
06 00322 BEQL 1$ ; 
FDEC CD 08 AC 00 00324 MOVL OWNER_UIC, UIC : 1698 
FDOFO CD 8888 8F AB O03¢A 21$:  BISW2 #34952, FPRO > 1704 
FFFF SF OC ac Bi 003 1 CMPW  PROT_VALUE, #65535 : 1705. 
06 13 00337 BEQL $ : 
FOFO CD 0c AC BO 00339 MOVW § PROT_VALUE, FPRO : 1707 
FE16 §CD 10 ac B60 tte 33: MOVW MAX_VERSIONS, RECATTR+30 : 1713 
7E 04 00345 238: LRL ss = (SB) : 1732 
0214 CE OF 00347 PUSHAB ATR F 
7E 7C 00348 LRQ = = (SP) : 
FEI8 CD OF 00340 PUSHAB E_DESC ; 
025¢ ce 9F 00351 PUSHAB FIB DESC ; 
—E 7C 00355 CLRO 0 =(SP ; 
0228 CE 9F 00357 PUSHAB 1088 ; 
7E F3 BF 9A 00358 MOVZBL #243, -(SP) ; 
00000000' EF DD 0035F PUSHL OUTPUT_CHAN ; 
E D4 0 33 CLRL ssp) ; 
000000006 90 OC FB 00367 CALLS a , SYS$Q10W ; 
8 20 09 036 MOVL , FINAL_STATU : 
76 8 : 0371 BLBC  FINAL_STATUS, 25$ > 1733 
58 0208 ce § 0374 MOVZWL 10SB,~FINAL_STATUS ; 
7A 3 0379 BLBC INAL STATUS, 26$ 3 1734 
02 0297 ce 7) re cAee WEADER*?, a : 1741 
08 AE 01 AE 00 83 MNEGW #1, BLOCK_BUFFER + 1747 
OlFE 8F 00 6E oe 00 2C 00 moves #0, (SP),~#0, #510, BLOCK_BUFFER+2 ; 1748 
7E 7C 6 CLRQ = = (SP) : 1755 
7E 01 70 0039 #i, =-(SP) : 
7E 0200 8F 3C 0039 MOVZwL #512, -(SP) : 
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1099 bytes, Routine Base: CODE + 0006 


; Routine Size: 


situated 


; the Time: 01:45.6 

; Lines/CPU Min: 23 

; Lexemes/CPU-Min: 38035 

; peneey Used: 496 pages 
a 


; Compilation Complete 


2 
14-s6,-1984 
14-Sep-1986 


; PSECT SUMMARY 

: Name Bytes Attributes 
: COMMON 2124 NOVEC, WRT, RD ,NOEXE,NOSHR, 
; CODE 1105 NOVEC, *NOWRT, RD , EXE,NOSHR, 
: Library Statistics 

; o------- Symbols -------- 

3 File Total ioaded Percent 

: _$255$DUA28:(SYSLIBILIB.L32;1 18619 116 0 

; COMMAND QUALIFIERS 

3 Size: 1099 code + 2130 data bytes 

; Run Time: 


47:38:55 


e REL, 
REL, 


Pages 
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